(calc-match): Remove reference to calc-previous-alg-entry.

diff --git a/lisp/calc/calc-rewr.el b/lisp/calc/calc-rewr.el
index 71dce50d97672ff72bf78e1c9b4e12f2e0db885c..d7530dc4cb641b57bef90043b17fda07145305c1 100644 (file)
--- a/lisp/calc/calc-rewr.el
+++ b/lisp/calc/calc-rewr.el
@@ -154,7 +154,6 @@
         (setq expr (calc-top-n 2)
               pat (calc-top-n 1)
               n 2)
-       (if interactive (setq calc-previous-alg-entry pat))
        (setq pat (if (stringp pat) (math-read-expr pat) pat))
        (if (eq (car-safe pat) 'error)
           (error "Bad format in expression: %s" (nth 1 pat)))